﻿Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Dim MiSRM As New SRM.SRMDataTable

        'With MiSRM
        '    .Nodo = "U067"
        '    .Aplicacion = "GS24"
        '    .Base = "seguros"
        '    .FixMsjQuery = "b12256781234W"
        '    '.Mensaje = "Select distinct tbl_polizas.sist_producto, tbl_polizas.codigo_cia, tbl_polizas.poliza, tbl_polizas.fecha_inicio_poliza  from tbl_polizas where tbl_polizas.sist_producto = 'SCS' and convert(varchar,tbl_polizas.fecha_inicio_poliza,112) > convert(varchar,'01/01/2011',112)"
        '    '.Mensaje = "Select distinct tbl_polizas.sist_producto as sistema, tbl_polizas.codigo_cia as compañia, tbl_polizas.poliza poliza, tbl_polizas.fecha_inicio_poliza [Fecha Inicio] from tbl_polizas where tbl_polizas.sist_producto = 'SCS' and convert(varchar,tbl_polizas.fecha_inicio_poliza,112) > convert(varchar,'01/01/2011',112)"
        '    '.Mensaje = "0000001Nseguros    Select 1 as A, 2 as B "
        '    '.Mensaje = "Select distinct tbl_polizas.sist_producto as [sistema], tbl_polizas.codigo_cia, tbl_polizas.poliza poliza, tbl_polizas.fecha_inicio_poliza [Fecha Inicio] from tbl_polizas where tbl_polizas.sist_producto = 'SCS' and convert(varchar,tbl_polizas.fecha_inicio_poliza,112) > convert(varchar,'01/01/2011',112)"
        '    .Mensaje = "Select distinct sist_producto as sistema, tbl_polizas.codigo_cia as compañia, tbl_polizas.poliza poliza, tbl_polizas.fecha_inicio_poliza Fecha_Inicio from tbl_polizas where tbl_polizas.sist_producto = 'SCS' and convert(varchar,tbl_polizas.fecha_inicio_poliza,112) > convert(varchar,'01/01/2011',112)"

        '    If (.Invocar) Then
        '        DataGridView1.DataSource = MiSRM.Respuesta
        '        Label1.Text = .Mensaje
        '    End If
        'End With

        PruebaServicio()
    End Sub

    Protected Sub PruebaServicio()
        Dim Tareas As NegTask.Cls_Task = New NegTask.Cls_Task()

        Tareas.GetTasks()
    End Sub
End Class
